home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD013b.dsk / SCRN DUMP.bas < prev    next >
BASIC Source File  |  2003-06-12  |  687b  |  25 lines
  1. 10 A = 49296
  2. 11 P = 1024
  3. 12  FOR S = P TO P +80  STEP 40
  4. 13  FOR L = S TO S +896  STEP 128
  5. 14  FOR C = L TO L +39
  6. 15 CH =  PEEK(C)
  7. 16  IF CH >159  AND CH <224  THEN 26
  8. 17  IF CH > -1  AND CH <64  THEN 19
  9. 18  GOTO 21
  10. 19  IF CH >31  THEN CH = CH +128: GOTO 26
  11. 20 CH = CH +192: GOTO 26
  12. 21  IF CH <128  THEN 23
  13. 22  GOTO 25
  14. 23  IF CH >95  THEN CH = CH +64: GOTO 26
  15. 24 CH = CH +128: GOTO 26
  16. 25 CH = 254
  17. 26  POKE A,CH
  18. 27  NEXT C
  19. 28  POKE A,10
  20. 29  IF  PEEK(49601) >127  THEN 29
  21. 30  NEXT L,S
  22. 31  REM  SCRN DUMP
  23. 32  REM  BY CHAD ADAMS
  24. 33  REM  8-22-82
  25. 65535  REM ***********************                          **        CHAD ADAMS        **                          *****************************